home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.6 KB  |  88 lines
  1. 1000 rem*******************************
  2. 1010 rem******                   ******
  3. 1020 rem***      hires colossal     ***
  4. 1030 rem***       -- demo --        ***
  5. 1040 rem******                   ******
  6. 1050 rem*******************************
  7. 1060 rem
  8. 1070 rem    (c) 1/86 by
  9. 1080 rem                f.graef
  10. 1090 rem                6831 plankstadt
  11. 1100 rem
  12. 1110 :
  13. 1120 :
  14. 1130 rem*** ram-ende heruntersetzen ***
  15. 1140 :
  16. 1150 sys 52225,0
  17. 1160 clr
  18. 1170 :
  19. 1180 :
  20. 1190 rem***** alle schirme richten ****
  21. 1200 :
  22. 1210 for i=1 to 4
  23. 1220 :         sys 52225,1,i
  24. 1230 :         D 0,12
  25. 1240 :DO i*20,i*20,""+str$(i),1,1,12
  26. 1250 :    Db i*20+15,i*20+3,10,10,1
  27. 1260 D10,i*10+100,i*20+10,i*10+110,1
  28. 1270 :         D 0,199,319,0,1
  29. 1280 :   D 120+i*10,0,120+i*10,199,1
  30. 1290 :         DF 1
  31. 1300 next i
  32. 1310 :
  33. 1320 :
  34. 1330 rem***** alle schirme zeigen *****
  35. 1340 :
  36. 1350 for i=1 to 2
  37. 1360 :       for x=1 to 4
  38. 1370 :            sys 52225,1,x
  39. 1380 :            DF1
  40. 1390 :       next x
  41. 1400 next i
  42. 1410 :
  43. 1420 :
  44. 1430 rem**** alle schirme saven *******
  45. 1440 :
  46. 1450 for i=1 to 4
  47. 1460 :        sys 52225,1,i
  48. 1470 sys52225,3,1,8,2,"s"+str$(i)+",p,w"
  49. 1480 next i
  50. 1490 :
  51. 1500 :
  52. 1510 rem schirme uebereinander blenden
  53. 1520 :
  54. 1530 sys 52225,1,1
  55. 1540 for i=2 to 4
  56. 1550 :         sys 52225,2,i
  57. 1560 next i
  58. 1570 DF 4
  59. 1580 :
  60. 1590 :
  61. 1600 rem*** alle schirme loeschen *****
  62. 1610 :
  63. 1620 for i=1 to 4
  64. 1630 :        sys 52225,1,i
  65. 1640 :        D 0,12
  66. 1650 next i
  67. 1660 :
  68. 1670 :
  69. 1680 rem****** schirme laden **********
  70. 1690 :
  71. 1700 for i=1 to 4
  72. 1710 :        sys 52225,1,i
  73. 1720 :        sys 52225,4,"s"+str$(i),8
  74. 1730 next i
  75. 1740 :
  76. 1750 :
  77. 1760 rem*** alle schirme zeigen *******
  78. 1770 :
  79. 1780 for i=1 to 2
  80. 1790 :       for x=1 to 4
  81. 1800 :            sys 52225,1,x
  82. 1810 :            DF1
  83. 1820 :       next x
  84. 1830 next i
  85. 1840 :
  86. 1850 :
  87. 1860 rem programmende
  88.